Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/strtest.fm

Text File | 1993-07-16 | 4KB | 862 lines

(standard0 bci)
9
1522
(name foo direct-superclasses direct-slot-descriptions a slot-class initarg initfunction %_*unbound*_% metaclass-hypotheses strtest bar xxx yowzer lambda-list (x) method-class argtype 1 methods domain signature function "XX" "a is: ~a~%" "going..." 3 () ((strip (union (import standard0) (import bci)))) strtest)
36
0 0 17 0
5
0 0 0 0
3
0
31
0 0 100 0
17
1
36
0 0 27 0
5
0 0 0 0
4
0 0 30 0
46
1
(boot . make-installed-module)
34
2
36
0 0 30 0
5
0 0 0 0
8
3
4
0 0 28 0
3
0
1
(boot . install-local-bindings)
34
3
17
1
36
0 0 28 0
5
0 0 1 0
8
3
4
0 0 29 0
1
(boot . make-interface)
34
2
17
1
14
2
1
37
22
0
36
0 0 178 0
1
(init . make)
1
(init . <structure-class>)
4
0 0 1 0
3
0
39
9
4
0 0 2 0
3
0
39
29
4
0 0 3 0
3
0
39
29
1
(init . <structure>)
3
0
39
3
0
39
29
4
0 0 4 0
3
0
39
29
4
0 0 1 0
3
0
39
9
4
0 0 5 0
3
0
39
29
4
0 0 6 0
3
0
39
29
1
(init . <local-slot-description>)
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 5 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 9 0
3
0
39
29
18
3
0
39
3
0
39
29
4
0 0 10 0
3
0
39
29
3
0
3
0
39
29
18
11
34
-2
7
0 0 31 0
36
0 0 27 0
1
(telos1 . find-slot-reader)
4
0 0 31 0
4
0 0 5 0
11
34
2
7
0 0 32 0
36
0 0 66 0
36
0 0 26 0
1
(init . setter)
1
(init . setter)
10
33
1
4
0 0 32 0
36
0 0 27 0
1
(telos1 . find-slot-writer)
4
0 0 31 0
4
0 0 5 0
11
34
2
11
33
2
18
36
0 4 46 0
11
4
0 0 11 0
5
0 0 0 0
39
51
-1
7
0 0 33 0
36
0 0 96 0
1
(init . make)
1
(init . <structure-class>)
4
0 0 1 0
3
0
39
9
4
0 0 12 0
3
0
39
29
4
0 0 3 0
3
0
39
29
4
0 0 31 0
3
0
39
3
0
39
29
4
0 0 4 0
3
0
39
29
3
0
3
0
39
29
4
0 0 10 0
3
0
39
29
3
0
3
0
39
29
18
11
34
-2
7
0 0 34 0
36
0 3 121 0
11
4
0 0 11 0
6
1
39
51
-1
7
0 0 35 0
36
0 0 96 0
1
(init . make)
1
(init . <structure-class>)
4
0 0 1 0
3
0
39
9
4
0 0 13 0
3
0
39
29
4
0 0 3 0
3
0
39
29
4
0 0 34 0
3
0
39
3
0
39
29
4
0 0 4 0
3
0
39
29
3
0
3
0
39
29
4
0 0 10 0
3
0
39
29
3
0
3
0
39
29
18
11
34
-2
7
0 0 36 0
36
0 0 143 0
1
(init . make)
1
(class-names . <generic-function>)
4
0 0 1 0
3
0
39
9
4
0 0 14 0
3
0
39
29
4
0 0 15 0
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 17 0
3
0
39
29
1
(class-names . <method>)
3
0
39
29
4
0 0 18 0
3
0
39
29
4
0 0 19 0
3
0
39
29
4
0 0 20 0
3
0
39
29
3
0
3
0
39
29
4
0 0 21 0
3
0
39
29
1
(class-names . <object>)
3
0
39
3
0
39
29
18
11
34
-2
7
0 0 37 0
36
0 0 123 0
1
(init . add-method)
4
0 0 37 0
36
0 0 101 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 37 0
10
34
1
4
0 0 22 0
3
0
39
9
4
0 0 31 0
3
0
39
3
0
39
29
4
0 0 18 0
3
0
39
29
4
0 0 19 0
3
0
39
29
4
0 0 23 0
3
0
39
29
36
0 1 252 0
8
12
40
1
3
0
39
29
18
11
34
-2
11
33
2
18
36
0 0 123 0
1
(init . add-method)
4
0 0 37 0
36
0 0 101 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 37 0
10
34
1
4
0 0 22 0
3
0
39
9
4
0 0 34 0
3
0
39
3
0
39
29
4
0 0 18 0
3
0
39
29
4
0 0 19 0
3
0
39
29
4
0 0 23 0
3
0
39
29
36
0 1 20 0
8
12
40
1
3
0
39
29
18
11
34
-2
11
33
2
18
36
0 0 123 0
1
(init . add-method)
4
0 0 37 0
36
0 0 101 0
1
(init . make)
36
0 0 22 0
1
(init . generic-method-class)
4
0 0 37 0
10
34
1
4
0 0 22 0
3
0
39
9
4
0 0 36 0
3
0
39
3
0
39
29
4
0 0 18 0
3
0
39
29
4
0 0 19 0
3
0
39
29
4
0 0 23 0
3
0
39
29
36
0 0 118 0
8
12
40
1
3
0
39
29
18
11
34
-2
11
33
2
18
36
0 0 66 0
11
4
0 0 11 0
6
2
39
51
1
7
0 0 38 0
36
0 0 25 0
11
4
0 0 11 0
6
3
39
51
0
7
0 0 39 0
18
3
1
37
18
1
(bci . set-bc-global)
4
0 0 27 0
3
0
62
2
37
36
0 0 19 0
1
(standard0 . make-instance)
8
4
10
33
1
15
3
4
0 0 37 0
9
13
3
33
1
36
0 0 24 0
1
(streams1 . print)
4
0 0 26 0
3
0
11
34
-2
18
11
27
15
2
9
13
3
35
1
36
0 0 42 0
1
(streams1 . print)
4
0 0 24 0
36
0 0 17 0
1
(extras0 . standard-error-stream)
9
33
0
3
0
39
11
34
-2
18
36
0 0 29 0
1
(extras0 . format)
3
1
4
0 0 25 0
8
6
3
0
39
12
34
-3
18
1
(arith . +)
4
0 0 19 0
36
0 0 13 0
8
6
27
8
6
10
35
1
14
5
3
3
0
62
-3
37
17
2
4
0 0 19 0
37
1
(init . apply)
1
(init . make)
4
0 0 34 0
36
0 0 21 0
1
(boot . nconc)
3
0
8
8
11
34
2
3
0
39
12
14
7
4
9
13
5
34
-3
1
(init . apply)
1
(init . make)
4
0 0 31 0
36
0 0 21 0
1
(boot . nconc)
3
0
8
8
11
34
2
3
0
39
12
14
7
4
9
13
5
34
-3